Mac Action 1996 January/mac-action-07.iso/mac/Inside Action/Total Distortion Big Demo/bePsyMap.Dxr/00002.ls

Text File | 1995-06-05 | 1.5 KB | 86 lines

on initPsyMan
  global PsyMan
  if voidp(PsyMan) or (PsyMan = 0) or the commandDown then
    set PsyMan to birth(script "PsyMan.script")
  end if
end

on RandoResultSnd
  set startSndNum to the number of cast "DoWthMe.AIF" - 1
  set RandBase to 8
  set SndNum to random(RandBase) + startSndNum
  puppetSound(3, SndNum)
end

on RandoBeepSnd
  set startSndNum to the number of cast "PsyRealy.AIF" - 1
  set RandBase to 15
  set SndNum to random(RandBase) + startSndNum
  puppetSound(3, SndNum)
end

on JumpPage n
  global NowBPage
  RandoBeepSnd()
  set NowBPage to n
  go(string(n))
end

on goNowPage
  global NowBPage
  RandoBeepSnd()
  go(string(NowBPage))
end

on PutAway
  puppetSound(0)
  go("exit")
end

on BookHelp
  RandoBeepSnd()
  go("help")
end

on initbook n
  global NowBPage, BPageMax
  set NowBPage to 1
  set BPageMax to n
end

on PageUp
  global NowBPage, BPageMax
  if NowBPage = BPageMax then
    exit
  else
    set NowBPage to NowBPage + 1
  end if
  puppetSound(3, the number of cast "BookPage.1")
  go(string(NowBPage))
end

on LastPage
  global NowBPage, BPageMax
  puppetSound(3, the number of cast "Kick.1")
  go(string(BPageMax))
  set NowBPage to BPageMax
end

on FirstPage
  global NowBPage, BPageMax
  puppetSound(3, the number of cast "Kick.1")
  go("1")
  set NowBPage to 1
end

on PageDN
  global NowBPage, BPageMax
  if NowBPage = 1 then
    exit
  else
    set NowBPage to NowBPage - 1
  end if
  puppetSound(3, the number of cast "BookPage.2")
  go(string(NowBPage))
end